home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / wizards / Wzquery / showdd.prg < prev    next >
Encoding:
Text File  |  1998-05-01  |  1.0 KB  |  39 lines
  1. PROCEDURE ShowDD
  2.     PRIVATE m.i,m.j
  3.     RELEASE WINDOW t.txt
  4.     ERASE \t.txt
  5.     SET TEXTMERGE TO \t.txt
  6.     SET TEXTMERGE ON
  7.     SET CONSOLE OFF
  8.     LOCAL mo
  9.     mo=IIF(m.qWiztype='R',owizard.form1.pageframe1.page1.pageframe1.page2.mvrfld,;
  10.         owizard.form1.pageframe1.page1.pageframe1.page2.tblmover1)
  11.     FOR m.i=1 TO ALEN(mo.aselections,1)
  12.         \<<m.i>> <<mo.lstright.indextoitemid[m.i]>> <<mo.aselections[m.i,2]>> <<mo.aselections[m.i,1]>>
  13.     ENDFOR
  14.     \
  15.     FOR m.i=1 TO ALEN(wzaQDD,1)
  16.         \
  17.         IF !EMPTY(wzaQDD[m.i,1])
  18.             FOR m.j=1 TO 6
  19.                 \\<<padr(wzaQdd[m.i,m.j],15)>>
  20.             ENDFOR &&* m.j=1 TO m.wziMaxAttr
  21.         ENDIF && !EMPTY(wzaQDD[m.i,1])
  22.     ENDFOR &&* m.i=1 TO ALEN(wzaQDD,1)
  23.     \Fields
  24.     FOR m.i=1 TO ALEN(wzaQFlds,1)
  25.         \<<m.i>>    <<wzaQFlds[m.i]>>
  26.     ENDFOR
  27.     \Sorting
  28.     \<<m.wziQSorta>>
  29.     FOR m.i=1 TO ALEN(wzaQSort,1)
  30.         \<<m.i>>    <<wzaQSort[m.i]>>
  31.     ENDFOR
  32.     SET TEXTMERGE TO
  33.     SET CONSOLE ON
  34.     DEFINE WINDOW TT AT 34,7 SIZE 27,87 CLOSE FLOAT GROW
  35.     MODI COMM \t.txt nowait save noedit WINDOW tt
  36.     RELEASE WINDOW tt
  37. RETURN
  38. *EOP ShowDD
  39.